Loadstar 84/084.d81/toolbox demo

Commodore BASIC | 2022-08-26 | 4KB | 116 lines

100 dv=peek(186):ifdv<8thendv=8
110 ifa=0thena=1:load"sys toolbox.o",dv,1
120 dimf(8),fa(5),c(20)
130 fori=0to8:readf(i):next:fori=1to5:readfa(i):next
140 fori=0to12:readc(i):next
150 poke53281,0:poke53280,0:print:print"[147]"
160 gosub1080:sys49152,7,0,15,0,39,160,5
170 sys49152,7,2,14,2,38,160,11
180 sys49152,7,1,13,1,37,224,0
190 sys49152,4,6:rem stash the screen
200 gosub1170
210 print"[155][160][160][160][160][160][160][211][195][210][197][197][206][160][212][207][207][204][194][207][216]"
220 print"by[160][210]ick[160][206]ash & [202]eff [202]ones"
230 print"[212]hirteen utilities for your programs
240 [153]"ascor shorter yet snazzier programs
250 print"[208]ress any key to continue
260 [161]a$:[139]a$[178]""[167]260
270 [141]1130:[141]1170
280 [153]"list(NULL)ith every command, your line links
290 print"are kept clear.  [212]his means that
300 [153]"even on the busiest screens,
310 print "there's no more guessing where the
320 [153] "cursor will land.
330 print "[208]ress any key to continue"
340 geta$:ifa$=""then340
350 gosub1130:gosub1170
360 print"[217]ou can move a line anywhere
370 [153]"on the screen, or copy it.
380 print "[208]ress any key for example"
390 geta$:ifa$=""then390
400 d=24:fors=14to0step-1:sys49152,1,s,d:d=d-1:next
410 print"   [159][201]t took only one [198][207][210]-[206][197][216][212] loop to
420 [153]"move the box from the top to the"
430 [153]"bottom of the screen.  (NULL)he (NULL)(NULL)(NULL)val
440 print"function doubles as a [195][207][208][217] function.
450 [153]"len(NULL)(NULL)(NULL) is the same as move, but won't
460 print"erase the line of origin.
470 [153] "(NULL)ress any key for example"
480 [161]a$:[139]a$[178]""[167]480
490 d[178]0:[129]s[178]10[164]24:[158]49152,1,s[170]128,d:d[178]d[170]1:[130]
500 [161]a$:[139]a$[178]""[167]500
510 [141]1120:[141]1170
520 [153]"list(NULL)ou can also send messages to your
530 print"users with one [211][217][211].  [212]he message
540 [153]"will wait for the user to press
550 print"any key.  [212]hat keypress will
560 [153]"not be cleared from the keyboard
570 print"buffer.
580 [153] "(NULL)ress any key for example"
590 [161]a$:[139]a$[178]""[167]590
600 [146]197,64:[158]49152,2,"(NULL)ress any key to exit this message"
610 [141]1130:[141]1170
620 [153]"list(NULL)ou also have any of nine screens"
630 [153]"that you can call by number."
640 [153]"right$'ve only been using (NULL)(NULL)val througout"
650 [153]"this demo.":[141]1190
660 [141]1130:[141]1170
670 [153]"list(NULL)ou can also read text files with"
680 [153]"one (NULL)(NULL)(NULL).":[141]1190
690 [158]49152,13,8,[198]("\"),"text":[141]1120:[141]1130:[141]1170
700 [153]"listleft$ere are quick examples of a"
710 [153]"few other commands you have at
720 print"your disposal.
730 [158]49152,2,"100 boxes comin' up!  (NULL)ress (NULL)(NULL)atnlenval...":[161]a$
740 [129]i[178]1[164]100
750 [158]49152,7,[187](ti)[172]12[170]1,[187](ti)[172]12[170]12,[187](ti)[172]20[170]1,[187](ti)[172]20[170]19,160,i:[130]
760 [141]1120:[141]1130:[141]1170
770 [153]"listatn box can be any color and "
780 [153]"made up of any character:
790 sys49152,2,"[208]ress [211][208][193][195][197] for example":geta$
800 fori=1to100
810 sys49152,7,rnd(ti)*12+1,rnd(ti)*12+12,rnd(ti)*20+1,rnd(ti)*20+19,i,i:next
820 gosub1120:gosub1130:gosub1170
830 print"[155][217]ou can fill any section of"
840 print"screen with any color.  [206]ote
850 [153]"how only the color is being
860 print"changed.  [212]he screen stays the
870 [153]"same.  (NULL)ince this screen is mostly
880 print"reverse spaces, the fill will look
890 [153]"like a box command in places.
900 sys49152,2,"[208]ress [211][208][193][195][197] for example":geta$
910 fori=1to100
920 sys49152,6,rnd(ti)*12+1,rnd(ti)*12+12,rnd(ti)*20+1,rnd(ti)*20+19,i:next
930 gosub1120:gosub1130:gosub1170
940 print"[155][217]ou can reverse any section"
950 print"of the screen.":sys49152,4,7
960 sys49152,2,"[208]ress [211][208][193][195][197] for example":geta$
970 fori=1to20:sys49152,11,0,24,20,39,128:ford=1to150:next:next
980 gosub1120:gosub1130:gosub1170
990 print"[155][201]n case you forget how to use"
1000 print"[211][217][211][160][212][207][207][204][160][194][207][216], a help function is
1010 [153]"included.  mid$ust type 'sys49152,0'
1020 print"for the help screens.
1030 [158]49152,2,"(NULL)ress (NULL)(NULL)atnlenval to see the help screens":[161]a$:[158]49152,0
1040 [158]49152,5,6:[141]1170
1050 [158]49152,2,"str$emo again or (NULL)uit? (str$/(NULL))":[161]a$:[139]a$[179][177]"d"[175]a$[179][177]"q"[167]1050
1060 [151]212,0:[139]a$[178]"d"[167][156]:[137]120
1070 [137]1200
1080 [129]i[178]0[164]11:[158]49152,7,i,24[171]i,i,39[171]i,160,c(i):[130]:[142]
1090 [131]224,96,100,111,121,98,248,247,227
1100 [131]1,15,12,11,0
1110 [131],3,14,6,4,2,9,8,10,1,15,12,11
1120 [143] fade grey
1130 [158]49152,10,15,12
1140 [158]49152,10,12,11
1150 [158]49152,5,6
1160 [142]
1170 [129]i[178]1[164]8:[158]49152,7,1,13,1,37,f(i),15:[130]
1180 [158]49152,7,1,13,1,37,224,15:[142]
1190 [158]49152,2,"(NULL)ress any key to continue...":[142]
1200 a$[178]"hello connect":[159]15,8,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15
1210 [139] er[179][177]63 [167] [153]"load":[128]
1220 q$[178][199](34):[151]646,[194](53281):[153]"load"
1230 [153]"load"q$a$q$",8"
1240 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]